home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility2
/
wine02bx.zip
/
LISP
/
PRIM
/
WINDOW.ELC
< prev
Wrap
Text File
|
1993-03-28
|
3KB
|
46 lines
;;; compiled by @win386 on Sat Mar 13 01:40:43 1993
;;; from file c:/src/lucid-19.4/lisp/prim/window.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(fset 'count-windows #[(&optional minibuf) "└┬├\"ê )ç" [0 count walk-windows #[nil "┴\\ëç" [count 1] 2] minibuf] 3 "\
Returns the number of visible windows.
Optional arg NO-MINI non-nil means don't count the minibuffer
even if it is active."])
(fset 'balance-windows #[nil "└┬├─\"ê┼ Ñ┬╟─\"*ç" [0 count walk-windows #[(w) "┴\\ëç" [count 1] 2] nomini screen-height size #[(w) "└ !ê┬─ Z!ç" [select-window w enlarge-window size window-height] 3]] 3 "\
Makes all visible windows the same size (approximately)." nil])
(fset 'split-window-vertically #[(&optional arg hack-display) "└ ┴─┴¡â╞!\"½╟┴è╔ qê╩ bê╦╠ !ê═\n`\"ê`╬\n!Y½à╧\n`\"ê╦╨!ê╤`\n\"½à═\n`\"ê`)`X½ï╧S\"ê╥\n!ê)\n*ç" [selected-window nil new-w old-w split-window arg prefix-numeric-value hack-display bottom window-buffer window-start vertical-motion window-height set-window-start window-point set-window-point -1 pos-visible-in-window-p select-window] 4 "\
Split current window into two windows, one above the other.
The top window gets ARG lines. No arg means split equally.
The two windows will be displaying the same text as before: both windows will
be displaying the current buffer, but the second window will be scrolled such
that little redisplay will happen - the lines that were on the screen before
the split will still be on the screen, in the same places.
An effort is made to keep the cursor in the same place relative to the text on
the screen as well. If the cursor is below the split-point before the split,
then the bottom window will be selected; otherwise the top window will be
selected." (list current-prefix-arg t)])
(fset 'split-window-horizontally #[(&optional arg) "└┴\n¡â├\n!─#ç" [split-window nil arg prefix-numeric-value t] 4 "\
Split current window into two windows side by side.
This window becomes the leftmost of the two, and gets
ARG columns. No arg means split equally." "P"])
(fset 'enlarge-window-horizontally #[(arg) "└ ┬\"ç" [enlarge-window arg t] 3 "\
Make current window ARG columns wider." "p"])
(fset 'shrink-window-horizontally #[(arg) "└ ┬\"ç" [shrink-window arg t] 3 "\
Make current window ARG columns narrower." "p"])
(fset 'window-config-to-register #[(name) "└ ┬ \"ç" [set-register name current-window-configuration] 3 "\
Save the current window configuration in register REG (a letter).
It can be later retrieved using \\[M-x register-to-window-config]." "cSave window configuration in register: "])
(fset 'register-to-window-config #[(name) "└┴\n!!ç" [set-window-configuration get-register name] 3 "\
Restore (make current) the window configuration in register REG (a letter).
Use with a register previously set with \\[window-config-to-register]." "cRestore window configuration from register: "])